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] 
i 
0001 C 
¢ : ¥ Version: *v04-000' 
¢ Cee PARAAAAAASAALAAELARALELALALALELALLASELALALE SALES A SESE SEE ESE ELSE EES EASE EECA a SY 
® 
C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
000 C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
8 ~ ALL RIGHTS RESERVED. : 
0010 C* THIS he zs ® is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0011 C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE ne a THE * 
pots C* INCLUSION OF THe ABOVE epernieuy NOTICE. THIS SOFTWARE OR OTHER * 
1 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0014 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
BRI? ES TRANSFERRED. * 
& we 
0017 Ce pe oe. ae IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0018 Ce SHOUL 4 NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4 ‘ CORPORA T ® 
e ® 
0021 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
Q0g2 Cx SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
* 
88 : Rina satis ialateereesin dinate dain hanna a acai aaa nal 
0026 C 
ee 
09 9 : Author: Elliott A. Drayton Creation Date: 13-Apr-1984 
0031 C This modules entry points are called from BLISS modules. This was needed 
ot C because the routines being called have names which are the same as some 
808 : bliss UCB symbol. 
ist C Modified by: 
003% «= 005 
0037 «—¢ v04-001 £AD0150 Elliott A. Drayton 14-Apr-1964 00‘ 
0038 C Correct routine name from UBC$ to "uces. 00‘ 
0039 ¢ 00' 
0 00‘ 
boat 00' 
00462 00‘ 
0045 Subrout ine ORBSL OWNER. RTN ( Lstlun, Uic ) ai 
0045 Integere4 Vic 01 
6 Cali ORBSL “OWNER” (Lstlun , UVic ) 01 
0047 Return i 
0048 End Ly 
01( 
01( 
011 


ORBSL OWNER _RTN ife}e 3op-198e $2:08:36 — DISKSVMGMASTER: FER SRCINEW_RIN.FORSTO™™ 


PROGRAM SECTIONS 


Name Bytes Attributes 
8 CODE 7 PIC CON REL LCL SHR EXE RD NOWRT LONG 
OCAL 2 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 39 


| 
| 
ENTRY POINTS | 
Address Type Name 


0-00000000 ORBSL_OWNER_RTN 
VARIABLES 
Address Type Name Address Type Name 
AP-000000048 L*1 LSTLUN AP-00000008@ I*4 UIC 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
ORBSL_OWNER 


1 
0004 Subroutine UCBSW_STS_RTN ( Lstlun, Status) 
000 te Cstlin 

5 


y 
nteteres Status 
Call UCBSW_STS ( Lstlun , Status ) 


Re 
oe 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 27 ~=PIC CON REL 
2 SLOCAL 12 PIC CON REL 

Total Space Allocated 39 


ENTRY POINTS 
Address Type Name 
0-00000000 UCBSW_STS_RIN 


VARIABLES 
Address Type Name 
AP-00000004@ L*1_ LSTLUN 


Address Type Name 
AP-000000088 I*2 STATUS 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
UCBSW_STS 


H 13 | 
16-Sep-1984 90 O88 VAX-11 FORTRAN V3.4-56 Page 3 
5=Sep-1984 14:08:30  DISKSVMSMASTER: CERF. SRCINEW_RTN.FOR; 1 | 
| 
| 
LCL SHR EXE 
LCL NOSHR NOEXE RD WRT LONG 


RD NOWRT LONG 
| 
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“Sep-1984 14:08: DISKSVMSMASTER: 


¢ Subroutine UCBSL_OPCNT_RTN ( Lstlun, Opcnt ) 
Byte Cstlun 
Integer*4 Opcnt 
5 Call UCBSL_OPCNT ( Lstlun , Opcnt ) 
are 
n 


PROGRAM SECTIONS 


Name Bytes Attributes 

8 SCODE 27 ie CON REL LCL SHR EXE RD NOWRT LONG 
SLOCAL 12 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 39 


ENTRY POINTS 
Address Type Name 


0-00000000 UCBSL_OPCNT_RITN 
VARIABLES 
Address Type Name Address Type Name 
AP-000000048 L*1 LSTLUN AP-00000008@ I*4 OPCNT 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
UCBSL_OPCNT 
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-Sep-19 d 
§ Subroutine UCBSW_ERRCNT_RTN ( Lstlun, Errcnt ) 
yte a 
5 Caley Scasu ERRENT” ( “Cstlun . Errent ) 
End 
PROGRAM SECTIONS 

Name Bytes Attributes 
0 SCODE 27 +=PIC CON REL LCL SHR EXE RD NOWRT LONG 
2 SLOCAL 12 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 

Total Space Allocated 39 


ENTRY POINTS 
Address Type Name 


0-00000000 UCBSW_ERRCNT_RIN 
VARIABLES 
Address Type Name Address Type Name 
AP-000000088 I*2 ERRCNT AP-000000048 L*1_ LSTLUN 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
UCBSW_ERRCNT 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:NEW_RTN/OBJ=OBJ$:NEW_RTN MSRC$:NEW_RTN 
ROEM, som 


Ip 329-1984 9:10:36 VAX=11 FORTRAN 


-56 
DISKSVMSMASTER: CERF. SRCINEW_RTN.FOR; : 


el 


2 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


tm a — a a ss as — ss © ss Ls —) 2 ss Ss ts oo 
ee ee ee 


UCBSW_ERRCNT_RTN 


COMPILATION STATISTICS 


Time 
Elapsed. Tine: 
byhente Memory: 


seconds 
seconds 


159 pages 


ite 
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